VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "BDetallePedido"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
Attribute VB_Ext_KEY = "Member0" ,"BEmpleado"
Attribute VB_Ext_KEY = "Member1" ,"bProducto"
Option Explicit

Private mvarbProducto As bProducto 'local copy
Private mvarnCantidad As Integer 'local copy
Private mvarnDscto As Double 'local copy
Private mvarsComentario As String 'local copy
Private mvarbEmpleado As BEmpleado 'local copy
Private mvarnComision As Double 'local copy
Private mvarnMonto As Double 'local copy
Private mvarnPreUnitario As Double 'local copy
Friend Property Let nPreUnitario(ByVal vData As Double)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.nPreUnitario = 5
    mvarnPreUnitario = vData
End Property


Friend Property Get nPreUnitario() As Double
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.nPreUnitario
    nPreUnitario = mvarnPreUnitario
End Property



Friend Property Let nMonto(ByVal vData As Double)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.nMonto = 5
    mvarnMonto = vData
End Property


Friend Property Get nMonto() As Double
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.nMonto
    nMonto = mvarnMonto
End Property



Friend Property Let nComision(ByVal vData As Double)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.nComision = 5
    mvarnComision = vData
End Property


Friend Property Get nComision() As Double
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.nComision
    nComision = mvarnComision
End Property



Friend Property Set BEmpleado(ByVal vData As BEmpleado)
'used when assigning an Object to the property, on the left side of a Set statement.
'Syntax: Set x.bEmpleado = Form1
    Set mvarbEmpleado = vData
End Property


Friend Property Get BEmpleado() As BEmpleado
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.bEmpleado
    Set BEmpleado = mvarbEmpleado
End Property



Friend Property Let sComentario(ByVal vData As String)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.sComentario = 5
    mvarsComentario = vData
End Property


Friend Property Get sComentario() As String
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.sComentario
    sComentario = mvarsComentario
End Property



Friend Property Let nDscto(ByVal vData As Double)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.nDscto = 5
    mvarnDscto = vData
End Property


Friend Property Get nDscto() As Double
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.nDscto
    nDscto = mvarnDscto
End Property



Friend Property Let nCantidad(ByVal vData As Integer)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.nCantidad = 5
    mvarnCantidad = vData
End Property


Friend Property Get nCantidad() As Integer
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.nCantidad
    nCantidad = mvarnCantidad
End Property



Friend Property Set bProducto(ByVal vData As bProducto)
'used when assigning an Object to the property, on the left side of a Set statement.
'Syntax: Set x.bProducto = Form1
    Set mvarbProducto = vData
End Property


Friend Property Get bProducto() As bProducto
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.bProducto
    Set bProducto = mvarbProducto
End Property



